home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / test5 < prev    next >
Encoding:
Text File  |  1997-01-23  |  2.8 KB  |  244 lines
  1. #LAPLACE 2
  2. #STARTLINE
  3. if(irandom(10) > 5){sin(a)^2}else{cos(a)+1;1}
  4. #ENDLINE
  5. #STARTLINE
  6. procedure a(b) {1;2;3}
  7. #ENDLINE
  8. #STARTLINE
  9. if (b) {a = 1;} else a = 2;
  10. #ENDLINE
  11. #STARTLINE
  12. while TRUE a = a+1;
  13. #ENDLINE
  14. #STARTLINE
  15. procedure a [a=1,b=2,c=3] 1+2; B=g+1
  16. #ENDLINE
  17. #STARTLINE
  18. $dispprec=2,$dispexp=3,$thicklines=2
  19. #ENDLINE
  20. #STARTLINE
  21. 1+sin(12,2,3,4)+1;
  22. #ENDLINE
  23. #STARTLINE
  24. sin cos tan 6 + 1
  25. #RESULT
  26. COMPLEX(NUMBER(1,1.8180173919352e+000000,0.0e+000),NUMBER(0,0,1,0.0e+000))
  27. #ENDLINE
  28. #STARTLINE
  29. a:=-1e-6
  30. #RESULT
  31. DEFINITION(COMPLEX(NUMBER(1,-1.0e-006,0.0e+000),NUMBER(0,0,1,0.0e+000)),1,a,0)
  32. #ENDLINE
  33. #STARTLINE
  34. ((1+ 2)*3 ^ 2)
  35. #ENDLINE
  36. #STARTLINE
  37. sin cos tan 1 + 1
  38. #ENDLINE
  39. #STARTLINE
  40. sin cos tan 6 + 1
  41. #ENDLINE
  42. #STARTLINE
  43. sin()
  44. #ENDLINE
  45. #STARTLINE
  46. a=1;b=2;c=3
  47. #ENDLINE
  48. #STARTLINE
  49. element([1,3,4],3)
  50. #ENDLINE
  51. #STARTLINE
  52. element([1,3,4;1,2,9],1,4)
  53. #ENDLINE
  54. #STARTLINE
  55. rvector([1,3,4;1,2,9],3)
  56. #ENDLINE
  57. #STARTLINE
  58. eqright(eq(2+3,a*2))
  59. #ENDLINE
  60. #STARTLINE
  61. eq(2+3,a*2)
  62. #ENDLINE
  63. #STARTLINE
  64.  
  65. #ENDLINE
  66. #STARTLINE
  67. for ( 0 , irandom(100) > 0 , 1 ) { debug("hallo"); }
  68. #ENDLINE
  69. #STARTLINE
  70.  
  71. #ENDLINE
  72. #STARTLINE
  73. export(eval(matrix(3,3,n,m,n*m)),"Plain")
  74. #ENDLINE
  75. #STARTLINE
  76.  
  77. #ENDLINE
  78. #STARTLINE
  79. a=fopen("laplace:About","r");
  80. #ENDLINE
  81. #STARTLINE
  82. while ( !eof(a) ) { debug(freadln(a)) }
  83. #ENDLINE
  84. #STARTLINE
  85. fclose(a)
  86. #ENDLINE
  87. #STARTLINE
  88. a:=1
  89. #ENDLINE
  90. #STARTLINE
  91. a=2
  92. #ENDLINE
  93. #STARTLINE
  94. showentries
  95. #ENDLINE
  96. #STARTLINE
  97. {a=3;showentries;a=4;showentries;b=9}
  98. #ENDLINE
  99. #STARTLINE
  100. a=3,showentries,a=4,showentries,b=9
  101. #ENDLINE
  102. #STARTLINE
  103. a:=2
  104. #ENDLINE
  105. #STARTLINE
  106. b=a
  107. #ENDLINE
  108. #STARTLINE
  109. eval(b)
  110. #ENDLINE
  111. #STARTLINE
  112. f(x)=x^2
  113. #ENDLINE
  114. #STARTLINE
  115. f(3)
  116. #ENDLINE
  117. #STARTLINE
  118. x=5
  119. #ENDLINE
  120. #STARTLINE
  121. f(x)
  122. #ENDLINE
  123. #STARTLINE
  124. showentries
  125. #ENDLINE
  126. #STARTLINE
  127. g
  128. #ENDLINE
  129. #STARTLINE
  130. const(x)
  131. #ENDLINE
  132. #STARTLINE
  133. x
  134. #ENDLINE
  135. #STARTLINE
  136.  
  137. #ENDLINE
  138. #STARTLINE
  139. break(2,sin);
  140. #ENDLINE
  141. #STARTLINE
  142. return(1);
  143. #ENDLINE
  144. #STARTLINE
  145. sin
  146. #ENDLINE
  147. #STARTLINE
  148.  
  149. #ENDLINE
  150. #STARTLINE
  151. x=4
  152. #ENDLINE
  153. #STARTLINE
  154. f(x,y)=x^3+y
  155. #ENDLINE
  156. #STARTLINE
  157. f
  158. #ENDLINE
  159. #STARTLINE
  160. f(x)
  161. #ENDLINE
  162. #STARTLINE
  163. g(x)=f
  164. #ENDLINE
  165. #STARTLINE
  166. x=2
  167. #ENDLINE
  168. #STARTLINE
  169. f
  170. #ENDLINE
  171. #STARTLINE
  172. $dispprec
  173. #ENDLINE
  174. #STARTLINE
  175. $dispprec=5
  176. #ENDLINE
  177. #STARTLINE
  178. $dispprec
  179. #ENDLINE
  180. #STARTLINE
  181. $thicklines=1
  182. #ENDLINE
  183. #STARTLINE
  184.  
  185. #ENDLINE
  186. #STARTLINE
  187. $thicklines=0
  188. #ENDLINE
  189. #STARTLINE
  190.  
  191. #ENDLINE
  192. #STARTLINE
  193. $prompt="hallo"
  194. #ENDLINE
  195. #STARTLINE
  196.  
  197. #ENDLINE
  198. #STARTLINE
  199. prefsset("debugmode", "hallo")
  200. #ENDLINE
  201. #STARTLINE
  202. prefsget(prefsget("debugmode"))
  203. #ENDLINE
  204. #STARTLINE
  205. interpret(prefsget("profile"))
  206. #ENDLINE
  207. #STARTLINE
  208. prefsset("debugmode", "hello")
  209. #ENDLINE
  210. #STARTLINE
  211. prefsset("debugmode", "hello")
  212. #ENDLINE
  213. #STARTLINE
  214. interpret("2048+2")
  215. #ENDLINE
  216. #STARTLINE
  217.  
  218. #ENDLINE
  219. #STARTLINE
  220. showentries
  221. #ENDLINE
  222. #STARTLINE
  223. a
  224. #ENDLINE
  225. #STARTLINE
  226. a=1
  227. #ENDLINE
  228. #STARTLINE
  229. b=2;c=4
  230. #ENDLINE
  231. #STARTLINE
  232. a
  233. #ENDLINE
  234. #STARTLINE
  235. b
  236. #ENDLINE
  237. #STARTLINE
  238. c
  239. #ENDLINE
  240. #STARTLINE
  241.  
  242. #ENDLINE
  243. #ENDPROJECT
  244.